home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / AIncludes / Icons.a < prev    next >
Text File  |  1996-05-01  |  17KB  |  690 lines
  1. ;
  2. ;    File:        Icons.a
  3. ;
  4. ;    Contains:    Icon Utilities Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 8
  7. ;                Release:    Universal Interfaces 3.0d3 on Copland DR1
  8. ;
  9. ;    Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10. ;
  11. ;    Bugs?:        If you find a problem with this file, send the file and version
  12. ;                information (from above) and the problem description to:
  13. ;
  14. ;                    Internet:    apple.bugs@applelink.apple.com
  15. ;                    AppleLink:    APPLE.BUGS
  16. ;
  17. ;
  18.     IF &TYPE('__ICONS__') = 'UNDEFINED' THEN
  19. __ICONS__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  25.     include 'Quickdraw.a'
  26.     ENDIF
  27.  
  28.                                                             ; The following are icons for which there are both icon suites and SICNs. 
  29. kGenericDocumentIconResource    EQU        -4000
  30. kGenericStationeryIconResource    EQU        -3985
  31. kGenericEditionFileIconResource    EQU        -3989
  32. kGenericApplicationIconResource    EQU        -3996
  33. kGenericDeskAccessoryIconResource EQU    -3991
  34. kGenericFolderIconResource        EQU        -3999
  35. kPrivateFolderIconResource        EQU        -3994
  36. kFloppyIconResource                EQU        -3998
  37. kTrashIconResource                EQU        -3993
  38. kGenericRAMDiskIconResource        EQU        -3988
  39. kGenericCDROMIconResource        EQU        -3987                ; The following are icons for which there are SICNs only. 
  40. kDesktopIconResource            EQU        -3992
  41. kOpenFolderIconResource            EQU        -3997
  42. kGenericHardDiskIconResource    EQU        -3995
  43. kGenericFileServerIconResource    EQU        -3972
  44. kGenericSuitcaseIconResource    EQU        -3970
  45. kGenericMoverObjectIconResource    EQU        -3969                ; The following are icons for which there are icon suites only. 
  46. kGenericPreferencesIconResource    EQU        -3971
  47. kGenericQueryDocumentIconResource EQU    -16506
  48. kGenericExtensionIconResource    EQU        -16415
  49. kSystemFolderIconResource        EQU        -3983
  50. kAppleMenuFolderIconResource    EQU        -3982
  51.  
  52.                                                             ; Obsolete. Use named constants defined above. 
  53. genericDocumentIconResource        EQU        -4000
  54. genericStationeryIconResource    EQU        -3985
  55. genericEditionFileIconResource    EQU        -3989
  56. genericApplicationIconResource    EQU        -3996
  57. genericDeskAccessoryIconResource EQU    -3991
  58. genericFolderIconResource        EQU        -3999
  59. privateFolderIconResource        EQU        -3994
  60. floppyIconResource                EQU        -3998
  61. trashIconResource                EQU        -3994
  62. genericRAMDiskIconResource        EQU        -3988
  63. genericCDROMIconResource        EQU        -3987
  64. desktopIconResource                EQU        -3992
  65. openFolderIconResource            EQU        -3997
  66. genericHardDiskIconResource        EQU        -3995
  67. genericFileServerIconResource    EQU        -3972
  68. genericSuitcaseIconResource        EQU        -3970
  69. genericMoverObjectIconResource    EQU        -3969
  70. genericPreferencesIconResource    EQU        -3971
  71. genericQueryDocumentIconResource EQU    -16506
  72. genericExtensionIconResource    EQU        -16415
  73. systemFolderIconResource        EQU        -3983
  74. appleMenuFolderIconResource        EQU        -3982
  75.  
  76. kStartupFolderIconResource        EQU        -3981
  77. kOwnedFolderIconResource        EQU        -3980
  78. kDropFolderIconResource            EQU        -3979
  79. kSharedFolderIconResource        EQU        -3978
  80. kMountedFolderIconResource        EQU        -3977
  81. kControlPanelFolderIconResource    EQU        -3976
  82. kPrintMonitorFolderIconResource    EQU        -3975
  83. kPreferencesFolderIconResource    EQU        -3974
  84. kExtensionsFolderIconResource    EQU        -3973
  85. kFontsFolderIconResource        EQU        -3968
  86. kFullTrashIconResource            EQU        -3984
  87.  
  88.                                                             ; Obsolete. Use named constants defined above. 
  89. startupFolderIconResource        EQU        -3981
  90. ownedFolderIconResource            EQU        -3980
  91. dropFolderIconResource            EQU        -3979
  92. sharedFolderIconResource        EQU        -3978
  93. mountedFolderIconResource        EQU        -3977
  94. controlPanelFolderIconResource    EQU        -3976
  95. printMonitorFolderIconResource    EQU        -3975
  96. preferencesFolderIconResource    EQU        -3974
  97. extensionsFolderIconResource    EQU        -3973
  98. fontsFolderIconResource            EQU        -3968
  99. fullTrashIconResource            EQU        -3984
  100.  
  101. kLarge1BitMask                    EQU        'ICN#'
  102. kLarge4BitData                    EQU        'icl4'
  103. kLarge8BitData                    EQU        'icl8'
  104. kSmall1BitMask                    EQU        'ics#'
  105. kSmall4BitData                    EQU        'ics4'
  106. kSmall8BitData                    EQU        'ics8'
  107. kMini1BitMask                    EQU        'icm#'
  108. kMini4BitData                    EQU        'icm4'
  109. kMini8BitData                    EQU        'icm8'
  110.  
  111.                                                             ; Obsolete. Use names defined above. 
  112. large1BitMask                    EQU        'ICN#'
  113. large4BitData                    EQU        'icl4'
  114. large8BitData                    EQU        'icl8'
  115. small1BitMask                    EQU        'ics#'
  116. small4BitData                    EQU        'ics4'
  117. small8BitData                    EQU        'ics8'
  118. mini1BitMask                    EQU        'icm#'
  119. mini4BitData                    EQU        'icm4'
  120. mini8BitData                    EQU        'icm8'
  121. ;   alignment type values 
  122.  
  123. kAlignNone                        EQU        $00
  124. kAlignVerticalCenter            EQU        $01
  125. kAlignTop                        EQU        $02
  126. kAlignBottom                    EQU        $03
  127. kAlignHorizontalCenter            EQU        $04
  128. kAlignAbsoluteCenter            EQU        $05
  129. kAlignCenterTop                    EQU        $06
  130. kAlignCenterBottom                EQU        $07
  131. kAlignLeft                        EQU        $08
  132. kAlignCenterLeft                EQU        $09
  133. kAlignTopLeft                    EQU        $0A
  134. kAlignBottomLeft                EQU        $0B
  135. kAlignRight                        EQU        $0C
  136. kAlignCenterRight                EQU        $0D
  137. kAlignTopRight                    EQU        $0E
  138. kAlignBottomRight                EQU        $0F
  139.  
  140.                                                             ; Obsolete. Use names defined above. 
  141. atNone                            EQU        $00
  142. atVerticalCenter                EQU        $01
  143. atTop                            EQU        $02
  144. atBottom                        EQU        $03
  145. atHorizontalCenter                EQU        $04
  146. atAbsoluteCenter                EQU        $05
  147. atCenterTop                        EQU        $06
  148. atCenterBottom                    EQU        $07
  149. atLeft                            EQU        $08
  150. atCenterLeft                    EQU        $09
  151. atTopLeft                        EQU        $0A
  152. atBottomLeft                    EQU        $0B
  153. atRight                            EQU        $0C
  154. atCenterRight                    EQU        $0D
  155. atTopRight                        EQU        $0E
  156. atBottomRight                    EQU        $0F
  157. ; typedef SInt16                         IconAlignmentType
  158.  
  159. ;   transform type values  
  160.  
  161. kTransformNone                    EQU        $00
  162. kTransformDisabled                EQU        $01
  163. kTransformOffline                EQU        $02
  164. kTransformOpen                    EQU        $03
  165. kTransformLabel1                EQU        $0100
  166. kTransformLabel2                EQU        $0200
  167. kTransformLabel3                EQU        $0300
  168. kTransformLabel4                EQU        $0400
  169. kTransformLabel5                EQU        $0500
  170. kTransformLabel6                EQU        $0600
  171. kTransformLabel7                EQU        $0700
  172. kTransformSelected                EQU        $4000
  173. kTransformSelectedDisabled        EQU        $4001
  174. kTransformSelectedOffline        EQU        $4002
  175. kTransformSelectedOpen            EQU        $4003
  176.  
  177.                                                             ; Obsolete. Use names defined above. 
  178. ttNone                            EQU        $00
  179. ttDisabled                        EQU        $01
  180. ttOffline                        EQU        $02
  181. ttOpen                            EQU        $03
  182. ttLabel1                        EQU        $0100
  183. ttLabel2                        EQU        $0200
  184. ttLabel3                        EQU        $0300
  185. ttLabel4                        EQU        $0400
  186. ttLabel5                        EQU        $0500
  187. ttLabel6                        EQU        $0600
  188. ttLabel7                        EQU        $0700
  189. ttSelected                        EQU        $4000
  190. ttSelectedDisabled                EQU        $4001
  191. ttSelectedOffline                EQU        $4002
  192. ttSelectedOpen                    EQU        $4003
  193. ; typedef SInt16                         IconTransformType
  194.  
  195. ;   Selector mask values  
  196.  
  197. kSelectorLarge1Bit                EQU        $00000001
  198. kSelectorLarge4Bit                EQU        $00000002
  199. kSelectorLarge8Bit                EQU        $00000004
  200. kSelectorSmall1Bit                EQU        $00000100
  201. kSelectorSmall4Bit                EQU        $00000200
  202. kSelectorSmall8Bit                EQU        $00000400
  203. kSelectorMini1Bit                EQU        $00010000
  204. kSelectorMini4Bit                EQU        $00020000
  205. kSelectorMini8Bit                EQU        $00040000
  206. kSelectorAllLargeData            EQU        $000000FF
  207. kSelectorAllSmallData            EQU        $0000FF00
  208. kSelectorAllMiniData            EQU        $00FF0000
  209. kSelectorAll1BitData            EQU        $00010101
  210. kSelectorAll4BitData            EQU        $00020202
  211. kSelectorAll8BitData            EQU        $00040404
  212. kSelectorAllAvailableData        EQU        $FFFFFFFF
  213.  
  214.                                                             ; Obsolete. Use names defined above. 
  215. svLarge1Bit                        EQU        $00000001
  216. svLarge4Bit                        EQU        $00000002
  217. svLarge8Bit                        EQU        $00000004
  218. svSmall1Bit                        EQU        $00000100
  219. svSmall4Bit                        EQU        $00000200
  220. svSmall8Bit                        EQU        $00000400
  221. svMini1Bit                        EQU        $00010000
  222. svMini4Bit                        EQU        $00020000
  223. svMini8Bit                        EQU        $00040000
  224. svAllLargeData                    EQU        $000000FF
  225. svAllSmallData                    EQU        $0000FF00
  226. svAllMiniData                    EQU        $00FF0000
  227. svAll1BitData                    EQU        $00010101
  228. svAll4BitData                    EQU        $00020202
  229. svAll8BitData                    EQU        $00040404
  230. svAllAvailableData                EQU        $FFFFFFFF
  231. ; typedef UInt32                         IconSelectorValue
  232.  
  233.     IF FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE THEN
  234. ; typedef IconActionProcPtr             IconAction
  235.  
  236. ; typedef IconGetterProcPtr             IconGetter
  237.  
  238.     IF ¨ OLDROUTINELOCATIONS THEN
  239. CIcon                    RECORD 0
  240. iconPMap                 ds        PixMap            ; offset: $0 (0)        ; the icon's pixMap
  241. iconMask                 ds        BitMap            ; offset: $32 (50)        ; the icon's mask
  242. iconBMap                 ds        BitMap            ; offset: $40 (64)        ; the icon's bitMap
  243. iconData                 ds.l    1                ; offset: $4E (78)        ; the icon's data
  244. iconMaskData             ds.w    1                ; offset: $52 (82) <-- really an array of length one ; icon's mask and BitMap data
  245. sizeof                     EQU *                    ; size:   $54 (84)
  246.                         ENDR
  247. ; typedef struct CIcon *                CIconPtr
  248.  
  249. ; typedef CIconPtr *                    CIconHandle
  250.  
  251. ;
  252. ; pascal CIconHandle GetCIcon(SInt16 iconID)
  253. ;
  254.     IF ¨ GENERATINGCFM THEN
  255.         _GetCIcon:    OPWORD    $AA1E
  256.     ELSE
  257.         IMPORT_CFM_FUNCTION GetCIcon
  258.     ENDIF
  259.  
  260. ;
  261. ; pascal void PlotCIcon(const Rect *theRect, CIconHandle theIcon)
  262. ;
  263.     IF ¨ GENERATINGCFM THEN
  264.         _PlotCIcon:    OPWORD    $AA1F
  265.     ELSE
  266.         IMPORT_CFM_FUNCTION PlotCIcon
  267.     ENDIF
  268.  
  269. ;
  270. ; pascal void DisposeCIcon(CIconHandle theIcon)
  271. ;
  272.     IF ¨ GENERATINGCFM THEN
  273.         _DisposeCIcon:    OPWORD    $AA25
  274.     ELSE
  275.         IMPORT_CFM_FUNCTION DisposeCIcon
  276.     ENDIF
  277.  
  278.     ENDIF
  279. ;
  280. ; pascal Handle GetIcon(SInt16 iconID)
  281. ;
  282.     IF ¨ GENERATINGCFM THEN
  283.         _GetIcon:    OPWORD    $A9BB
  284.     ELSE
  285.         IMPORT_CFM_FUNCTION GetIcon
  286.     ENDIF
  287.  
  288. ;
  289. ; pascal void PlotIcon(const Rect *theRect, Handle theIcon)
  290. ;
  291.     IF ¨ GENERATINGCFM THEN
  292.         _PlotIcon:    OPWORD    $A94B
  293.     ELSE
  294.         IMPORT_CFM_FUNCTION PlotIcon
  295.     ENDIF
  296.  
  297. ;
  298. ; pascal OSErr PlotIconID(const Rect *theRect, IconAlignmentType align, IconTransformType transform, SInt16 theResID)
  299. ;
  300.     IF ¨ GENERATINGCFM THEN
  301.         Macro
  302.         _PlotIconID
  303.             move.w              #$0500,D0
  304.             dc.w                $ABC9
  305.         EndM
  306.     ELSE
  307.         IMPORT_CFM_FUNCTION PlotIconID
  308.     ENDIF
  309.  
  310. ;
  311. ; pascal OSErr NewIconSuite(Handle *theIconSuite)
  312. ;
  313.     IF ¨ GENERATINGCFM THEN
  314.         Macro
  315.         _NewIconSuite
  316.             move.w              #$0207,D0
  317.             dc.w                $ABC9
  318.         EndM
  319.     ELSE
  320.         IMPORT_CFM_FUNCTION NewIconSuite
  321.     ENDIF
  322.  
  323. ;
  324. ; pascal OSErr AddIconToSuite(Handle theIconData, Handle theSuite, ResType theType)
  325. ;
  326.     IF ¨ GENERATINGCFM THEN
  327.         Macro
  328.         _AddIconToSuite
  329.             move.w              #$0608,D0
  330.             dc.w                $ABC9
  331.         EndM
  332.     ELSE
  333.         IMPORT_CFM_FUNCTION AddIconToSuite
  334.     ENDIF
  335.  
  336. ;
  337. ; pascal OSErr GetIconFromSuite(Handle *theIconData, Handle theSuite, ResType theType)
  338. ;
  339.     IF ¨ GENERATINGCFM THEN
  340.         Macro
  341.         _GetIconFromSuite
  342.             move.w              #$0609,D0
  343.             dc.w                $ABC9
  344.         EndM
  345.     ELSE
  346.         IMPORT_CFM_FUNCTION GetIconFromSuite
  347.     ENDIF
  348.  
  349. ;
  350. ; pascal OSErr ForEachIconDo(Handle theSuite, IconSelectorValue selector, IconActionUPP action, void *yourDataPtr)
  351. ;
  352.     IF ¨ GENERATINGCFM THEN
  353.         Macro
  354.         _ForEachIconDo
  355.             move.w              #$080A,D0
  356.             dc.w                $ABC9
  357.         EndM
  358.     ELSE
  359.         IMPORT_CFM_FUNCTION ForEachIconDo
  360.     ENDIF
  361.  
  362. ;
  363. ; pascal OSErr GetIconSuite(Handle *theIconSuite, SInt16 theResID, IconSelectorValue selector)
  364. ;
  365.     IF ¨ GENERATINGCFM THEN
  366.         Macro
  367.         _GetIconSuite
  368.             move.w              #$0501,D0
  369.             dc.w                $ABC9
  370.         EndM
  371.     ELSE
  372.         IMPORT_CFM_FUNCTION GetIconSuite
  373.     ENDIF
  374.  
  375. ;
  376. ; pascal OSErr DisposeIconSuite(Handle theIconSuite, Boolean disposeData)
  377. ;
  378.     IF ¨ GENERATINGCFM THEN
  379.         Macro
  380.         _DisposeIconSuite
  381.             move.w              #$0302,D0
  382.             dc.w                $ABC9
  383.         EndM
  384.     ELSE
  385.         IMPORT_CFM_FUNCTION DisposeIconSuite
  386.     ENDIF
  387.  
  388. ;
  389. ; pascal OSErr PlotIconSuite(const Rect *theRect, IconAlignmentType align, IconTransformType transform, Handle theIconSuite)
  390. ;
  391.     IF ¨ GENERATINGCFM THEN
  392.         Macro
  393.         _PlotIconSuite
  394.             move.w              #$0603,D0
  395.             dc.w                $ABC9
  396.         EndM
  397.     ELSE
  398.         IMPORT_CFM_FUNCTION PlotIconSuite
  399.     ENDIF
  400.  
  401. ;
  402. ; pascal OSErr MakeIconCache(Handle *theHandle, IconGetterUPP makeIcon, void *yourDataPtr)
  403. ;
  404.     IF ¨ GENERATINGCFM THEN
  405.         Macro
  406.         _MakeIconCache
  407.             move.w              #$0604,D0
  408.             dc.w                $ABC9
  409.         EndM
  410.     ELSE
  411.         IMPORT_CFM_FUNCTION MakeIconCache
  412.     ENDIF
  413.  
  414. ;
  415. ; pascal OSErr LoadIconCache(const Rect *theRect, IconAlignmentType align, IconTransformType transform, Handle theIconCache)
  416. ;
  417.     IF ¨ GENERATINGCFM THEN
  418.         Macro
  419.         _LoadIconCache
  420.             move.w              #$0606,D0
  421.             dc.w                $ABC9
  422.         EndM
  423.     ELSE
  424.         IMPORT_CFM_FUNCTION LoadIconCache
  425.     ENDIF
  426.  
  427. ;
  428. ; pascal OSErr PlotIconMethod(const Rect *theRect, IconAlignmentType align, IconTransformType transform, IconGetterUPP theMethod, void *yourDataPtr)
  429. ;
  430.     IF ¨ GENERATINGCFM THEN
  431.         Macro
  432.         _PlotIconMethod
  433.             move.w              #$0805,D0
  434.             dc.w                $ABC9
  435.         EndM
  436.     ELSE
  437.         IMPORT_CFM_FUNCTION PlotIconMethod
  438.     ENDIF
  439.  
  440. ;
  441. ; pascal OSErr GetLabel(SInt16 labelNumber, RGBColor *labelColor, Str255 labelString)
  442. ;
  443.     IF ¨ GENERATINGCFM THEN
  444.         Macro
  445.         _GetLabel
  446.             move.w              #$050B,D0
  447.             dc.w                $ABC9
  448.         EndM
  449.     ELSE
  450.         IMPORT_CFM_FUNCTION GetLabel
  451.     ENDIF
  452.  
  453. ;
  454. ; pascal Boolean PtInIconID(Point testPt, const Rect *iconRect, IconAlignmentType align, SInt16 iconID)
  455. ;
  456.     IF ¨ GENERATINGCFM THEN
  457.         Macro
  458.         _PtInIconID
  459.             move.w              #$060D,D0
  460.             dc.w                $ABC9
  461.         EndM
  462.     ELSE
  463.         IMPORT_CFM_FUNCTION PtInIconID
  464.     ENDIF
  465.  
  466. ;
  467. ; pascal Boolean PtInIconSuite(Point testPt, const Rect *iconRect, IconAlignmentType align, Handle theIconSuite)
  468. ;
  469.     IF ¨ GENERATINGCFM THEN
  470.         Macro
  471.         _PtInIconSuite
  472.             move.w              #$070E,D0
  473.             dc.w                $ABC9
  474.         EndM
  475.     ELSE
  476.         IMPORT_CFM_FUNCTION PtInIconSuite
  477.     ENDIF
  478.  
  479. ;
  480. ; pascal Boolean PtInIconMethod(Point testPt, const Rect *iconRect, IconAlignmentType align, IconGetterUPP theMethod, void *yourDataPtr)
  481. ;
  482.     IF ¨ GENERATINGCFM THEN
  483.         Macro
  484.         _PtInIconMethod
  485.             move.w              #$090F,D0
  486.             dc.w                $ABC9
  487.         EndM
  488.     ELSE
  489.         IMPORT_CFM_FUNCTION PtInIconMethod
  490.     ENDIF
  491.  
  492. ;
  493. ; pascal Boolean RectInIconID(const Rect *testRect, const Rect *iconRect, IconAlignmentType align, SInt16 iconID)
  494. ;
  495.     IF ¨ GENERATINGCFM THEN
  496.         Macro
  497.         _RectInIconID
  498.             move.w              #$0610,D0
  499.             dc.w                $ABC9
  500.         EndM
  501.     ELSE
  502.         IMPORT_CFM_FUNCTION RectInIconID
  503.     ENDIF
  504.  
  505. ;
  506. ; pascal Boolean RectInIconSuite(const Rect *testRect, const Rect *iconRect, IconAlignmentType align, Handle theIconSuite)
  507. ;
  508.     IF ¨ GENERATINGCFM THEN
  509.         Macro
  510.         _RectInIconSuite
  511.             move.w              #$0711,D0
  512.             dc.w                $ABC9
  513.         EndM
  514.     ELSE
  515.         IMPORT_CFM_FUNCTION RectInIconSuite
  516.     ENDIF
  517.  
  518. ;
  519. ; pascal Boolean RectInIconMethod(const Rect *testRect, const Rect *iconRect, IconAlignmentType align, IconGetterUPP theMethod, void *yourDataPtr)
  520. ;
  521.     IF ¨ GENERATINGCFM THEN
  522.         Macro
  523.         _RectInIconMethod
  524.             move.w              #$0912,D0
  525.             dc.w                $ABC9
  526.         EndM
  527.     ELSE
  528.         IMPORT_CFM_FUNCTION RectInIconMethod
  529.     ENDIF
  530.  
  531. ;
  532. ; pascal OSErr IconIDToRgn(RgnHandle theRgn, const Rect *iconRect, IconAlignmentType align, SInt16 iconID)
  533. ;
  534.     IF ¨ GENERATINGCFM THEN
  535.         Macro
  536.         _IconIDToRgn
  537.             move.w              #$0613,D0
  538.             dc.w                $ABC9
  539.         EndM
  540.     ELSE
  541.         IMPORT_CFM_FUNCTION IconIDToRgn
  542.     ENDIF
  543.  
  544. ;
  545. ; pascal OSErr IconSuiteToRgn(RgnHandle theRgn, const Rect *iconRect, IconAlignmentType align, Handle theIconSuite)
  546. ;
  547.     IF ¨ GENERATINGCFM THEN
  548.         Macro
  549.         _IconSuiteToRgn
  550.             move.w              #$0714,D0
  551.             dc.w                $ABC9
  552.         EndM
  553.     ELSE
  554.         IMPORT_CFM_FUNCTION IconSuiteToRgn
  555.     ENDIF
  556.  
  557. ;
  558. ; pascal OSErr IconMethodToRgn(RgnHandle theRgn, const Rect *iconRect, IconAlignmentType align, IconGetterUPP theMethod, void *yourDataPtr)
  559. ;
  560.     IF ¨ GENERATINGCFM THEN
  561.         Macro
  562.         _IconMethodToRgn
  563.             move.w              #$0915,D0
  564.             dc.w                $ABC9
  565.         EndM
  566.     ELSE
  567.         IMPORT_CFM_FUNCTION IconMethodToRgn
  568.     ENDIF
  569.  
  570. ;
  571. ; pascal OSErr SetSuiteLabel(Handle theSuite, SInt16 theLabel)
  572. ;
  573.     IF ¨ GENERATINGCFM THEN
  574.         Macro
  575.         _SetSuiteLabel
  576.             move.w              #$0316,D0
  577.             dc.w                $ABC9
  578.         EndM
  579.     ELSE
  580.         IMPORT_CFM_FUNCTION SetSuiteLabel
  581.     ENDIF
  582.  
  583. ;
  584. ; pascal SInt16 GetSuiteLabel(Handle theSuite)
  585. ;
  586.     IF ¨ GENERATINGCFM THEN
  587.         Macro
  588.         _GetSuiteLabel
  589.             move.w              #$0217,D0
  590.             dc.w                $ABC9
  591.         EndM
  592.     ELSE
  593.         IMPORT_CFM_FUNCTION GetSuiteLabel
  594.     ENDIF
  595.  
  596. ;
  597. ; pascal OSErr GetIconCacheData(Handle theCache, void **theData)
  598. ;
  599.     IF ¨ GENERATINGCFM THEN
  600.         Macro
  601.         _GetIconCacheData
  602.             move.w              #$0419,D0
  603.             dc.w                $ABC9
  604.         EndM
  605.     ELSE
  606.         IMPORT_CFM_FUNCTION GetIconCacheData
  607.     ENDIF
  608.  
  609. ;
  610. ; pascal OSErr SetIconCacheData(Handle theCache, void *theData)
  611. ;
  612.     IF ¨ GENERATINGCFM THEN
  613.         Macro
  614.         _SetIconCacheData
  615.             move.w              #$041A,D0
  616.             dc.w                $ABC9
  617.         EndM
  618.     ELSE
  619.         IMPORT_CFM_FUNCTION SetIconCacheData
  620.     ENDIF
  621.  
  622. ;
  623. ; pascal OSErr GetIconCacheProc(Handle theCache, IconGetterUPP *theProc)
  624. ;
  625.     IF ¨ GENERATINGCFM THEN
  626.         Macro
  627.         _GetIconCacheProc
  628.             move.w              #$041B,D0
  629.             dc.w                $ABC9
  630.         EndM
  631.     ELSE
  632.         IMPORT_CFM_FUNCTION GetIconCacheProc
  633.     ENDIF
  634.  
  635. ;
  636. ; pascal OSErr SetIconCacheProc(Handle theCache, IconGetterUPP theProc)
  637. ;
  638.     IF ¨ GENERATINGCFM THEN
  639.         Macro
  640.         _SetIconCacheProc
  641.             move.w              #$041C,D0
  642.             dc.w                $ABC9
  643.         EndM
  644.     ELSE
  645.         IMPORT_CFM_FUNCTION SetIconCacheProc
  646.     ENDIF
  647.  
  648. ;
  649. ; pascal OSErr PlotIconHandle(const Rect *theRect, IconAlignmentType align, IconTransformType transform, Handle theIcon)
  650. ;
  651.     IF ¨ GENERATINGCFM THEN
  652.         Macro
  653.         _PlotIconHandle
  654.             move.w              #$061D,D0
  655.             dc.w                $ABC9
  656.         EndM
  657.     ELSE
  658.         IMPORT_CFM_FUNCTION PlotIconHandle
  659.     ENDIF
  660.  
  661. ;
  662. ; pascal OSErr PlotSICNHandle(const Rect *theRect, IconAlignmentType align, IconTransformType transform, Handle theSICN)
  663. ;
  664.     IF ¨ GENERATINGCFM THEN
  665.         Macro
  666.         _PlotSICNHandle
  667.             move.w              #$061E,D0
  668.             dc.w                $ABC9
  669.         EndM
  670.     ELSE
  671.         IMPORT_CFM_FUNCTION PlotSICNHandle
  672.     ENDIF
  673.  
  674. ;
  675. ; pascal OSErr PlotCIconHandle(const Rect *theRect, IconAlignmentType align, IconTransformType transform, CIconHandle theCIcon)
  676. ;
  677.     IF ¨ GENERATINGCFM THEN
  678.         Macro
  679.         _PlotCIconHandle
  680.             move.w              #$061F,D0
  681.             dc.w                $ABC9
  682.         EndM
  683.     ELSE
  684.         IMPORT_CFM_FUNCTION PlotCIconHandle
  685.     ENDIF
  686.  
  687.     ENDIF
  688.     ENDIF ; __ICONS__ 
  689.  
  690.